home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / pdxvie.zip / FUNCS.CH < prev    next >
Text File  |  1993-04-01  |  3KB  |  67 lines
  1. ******************************************************************************
  2. *    When program is compiled with Clipper 5.01 rename this file         *
  3. *    to FUNCS.CH                                                          *
  4. ******************************************************************************
  5.  
  6. #define Panel( lHelp )     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  7.             DISPBOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓', 'w+/n' ),;
  8.             DEVPOS( MAXROW(), 0 ),;
  9.             IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ) ),;
  10.             QQOUT() ), SETCOLOR( cDefCol ) } )
  11.  
  12. #define Shad( nTR, nTC, nBR, nBC, lDoub, cClrs )  ;
  13.         DISPBOX( nTR+1, nTC+2, nBR+1, nBC+2, '░░░░░░░░░', 'w+/n' );;
  14.         DISPBOX( nTR, nTC, nBR, nBC, IF( lDoub, '╔═╗║╝═╚║ ',;
  15.         SPACE( 9 ) ), IF( EMPTY( cClrs ), NIL, cClrs ) )
  16.  
  17. #define BoxShad( nTR, nTC, nBR, nBC, cClrs );
  18.         RESTSCREEN( nTR + 1, nTC + 2, nBR + 1, nBC + 2,;
  19.         TRANSFORM( SAVESCREEN( nTR + 1, nTC + 2, nBR + 1, nBC + 2 ),;
  20.         REPLICATE( 'X', ( nBR-nTR+1 ) * ( nBC-nTC+1 ) ) ) );;
  21.         DISPBOX( nTR, nTC, nBR, nBC, '╔═╗║╝═╚║ ', cClrs )
  22.             
  23. #define Credit();
  24.         Panel( .F. );;
  25.         Shad( 4, 13, 21, 63, .T., 'w+/b' );;
  26.         SETCOLOR( "w+/b" ); DevPos( 5, 17 );;
  27.         DevOut( "This Demo was created at" );;
  28.         DevPos( 7, 20 ); DevOut( "Main Architect:" );;
  29.         DevPos( 9, 20 );;
  30.         DevOut( "With a little help from his friends." );;
  31.         DevPos( 18, 16 );;
  32.         DevOut( "Without their help and @#*%!)$? constructive" );;
  33.         DevPos( 19, 19 );;
  34.         DevOut( "criticism, you wouldn't be seeing this." );;
  35.         SETCOLOR( "GR+/B" ); DevPos( 7, 36 );;
  36.         DevOut( "Micheal Todd Charron" ); DevPos( 10, 31 );;
  37.         DevOut( "Arturo Austrich" ); DevPos( 11, 31 );;
  38.         DevOut( "Michelle Benoit" ); DevPos( 12, 32 );;
  39.         DevOut( "Paul Cornect" ); DevPos( 13, 33 );;
  40.         DevOut( "Gloria Eade" ); DevPos( 14, 32 );;
  41.         DevOut( "Ferdinand Ho" ); DevPos( 15, 35 );;
  42.         DevOut( "Fred Ho" ); DevPos( 16, 31 );;
  43.         DevOut( "Tony Makhlouta" ); SETCOLOR( "BR+/B" );;
  44.         DevPos( 5, 42 ); DevOut( "Nantucket Canada." );;
  45.         DevPos( 20, 28 );;
  46.         DevOut( "(c) Nantucket Software Canada 1990" );;
  47.         DevPos( 24, 79 )
  48.  
  49. #define SaveFullScreen()    cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
  50.  
  51. #define RestFullScreen()    RESTSCREEN( 0, 0, 24, 79, cFullScreen )
  52.  
  53. #define WaitKey( lCont );
  54.         INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
  55.         DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
  56.         INKEY( 60 )
  57.  
  58. #define Range( xVar, xExpr1, xExpr2 );
  59.         ( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
  60.         xVar <= MAX( xExpr1, xExpr2 ) )
  61.  
  62. #define Beep()    Tone(300,3)
  63.  
  64. #define PressAnyKey();
  65.     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  66.     DEVPOS( MAXROW(), 52 ), DEVOUT( 'Press any key to continue...'),;
  67.     SETCOLOR( cDefCol ), INKEY( 0 ) } )